unit ResolutionForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TResolutionForm = class(TForm)
    btnOk: TButton;
    btnCancel: TButton;
    lbltbHorzRes: TLabeledEdit;
    lbltbVertRes: TLabeledEdit;
    procedure FormActivate(Sender: TObject);
  private
    horizRes, vertRes : Integer;
  published
    property HorizontalResolution:Integer read horizRes write horizRes;
    property VerticalResolution:Integer read vertRes write vertRes;
  end;

var
  ResForm: TResolutionForm;

implementation

{$R *.dfm}

procedure TResolutionForm.FormActivate(Sender: TObject);
begin
 If (horizRes = 0) Then
        horizRes := 500;
 If (vertRes = 0) Then
        vertRes := 500;

 lbltbHorzRes.Text := IntToStr(horizRes);
 lbltbVertRes.Text := IntToStr(vertRes);
end;

end.
